function longVec = resampVec(vec1,vec2)
%resampVec 
%   Lengthens smaller of two vectors and pads it with zeros
    
    size1 = size(vec1);
    size2 = size(vec2);
        
    %Verifies if two inputs are vectors. If one or both are matrices,
    %returns.
    
    if size1(1)~=1 & size1(2)~=1 & size2(1)~=1 size2(2)~=1
        longVec = 0;
        return
    
    %Forces vectors to be row vectors.    
    elseif size1(1)~=1
        
        vec1=vec1';
        
    elseif size2(1)~=1
        
        vec2=vec2';
        
    end
    
    if size1(2)==size2(2)
        longVec = 0;
        return
    end
    
    if size1(2)>size2(2)
        
        length = size1(2);
        vec2Temp = zeros(1,length);
        
        for n=1:length
            
            if n>size2(2)
                n=length+1; %Breaks loop
            else
                vec2Temp(n)=vec2(n);
            end
        end
        longVec=vec2Temp; 
            
    else
 
        length = size2(2);
        vec1Temp = zeros(1,length);
        
        for n=1:length
            
            if n>size1(2)
                n=length+1; %Breaks loop
            else
                vec1Temp(n)=vec1(n);
            end
        end
        longVec=vec1Temp; 
                 
    end
        
end

